home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / NWLIB.ZIP / DEMO.ZIP / STATS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-25  |  3.5 KB  |  133 lines
  1. unit Stats;
  2.  
  3. interface
  4.  
  5. uses 
  6.      SysUtils,
  7.      WinTypes, 
  8.      WinProcs, 
  9.      Classes, 
  10.      Graphics, 
  11.      Forms, 
  12.      Controls, 
  13.      Buttons,
  14.      StdCtrls, 
  15.      Gauges, 
  16.      ExtCtrls, 
  17.      NWlib, 
  18.      nwServer,
  19.      nwTools;
  20.  
  21. type
  22.   TwinStats = class(TForm)
  23.     CancelBtn: TBitBtn;
  24.     Timer1: TTimer;
  25.     statPanel: TPanel;
  26.     sftLevel: TEdit;
  27.     ttsLevel: TEdit;
  28.     Label7: TLabel;
  29.     Label8: TLabel;
  30.     serverVer: TEdit;
  31.     Label9: TLabel;
  32.     NumVolumes: TEdit;
  33.     maxConns: TEdit;
  34.     connsInUse: TEdit;
  35.     peakConns: TEdit;
  36.     Label10: TLabel;
  37.     Label11: TLabel;
  38.     Label12: TLabel;
  39.     Label13: TLabel;
  40.     Stats: TGroupBox;
  41.     packetsOut: TEdit;
  42.     upTime: TEdit;
  43.     packetsIn: TEdit;
  44.     Label6: TLabel;
  45.     Label5: TLabel;
  46.     Label1: TLabel;
  47.     Panel2: TPanel;
  48.     gUtilization: TGauge;
  49.     Label2: TLabel;
  50.     cache: TGroupBox;
  51.     cacheHits: TEdit;
  52.     writeBlockCount: TEdit;
  53.     diskWriteCount: TEdit;
  54.     numDirtyCacheHits: TEdit;
  55.     cacheDirtyWaitTime: TEdit;
  56.     cacheMaxConcurrent: TEdit;
  57.     maxByteCount: TEdit;
  58.     minCacheBuffers: TEdit;
  59.     Label14: TLabel;
  60.     Label20: TLabel;
  61.     Label19: TLabel;
  62.     Label18: TLabel;
  63.     Label17: TLabel;
  64.     Label16: TLabel;
  65.     Label15: TLabel;
  66.     Label21: TLabel;
  67.     NWServer1: TNWServer;
  68.     NWTools1: TNWTools;
  69.     NWLib1: TNWLib;
  70.     procedure FormShow(Sender: TObject);
  71.     procedure Timer1Timer(Sender: TObject);
  72.   private
  73.     { Private declarations }
  74.     procedure UpdateStats;
  75.   public
  76.     { Public declarations }
  77.   end;
  78.  
  79. var
  80.   winStats: TwinStats;
  81.  
  82. implementation
  83.  
  84. {$R *.DFM}
  85.  
  86. procedure TwinStats.FormShow(Sender: TObject);
  87.   begin
  88.     updateStats;
  89.   end;
  90.  
  91. procedure TwinStats.UpdateStats;
  92.   var
  93.     serverStats  : TNWServerInfo ;
  94.     memCacheInfo : TNWMemCacheInfo ;
  95.   begin
  96.     { Get Server's Operational & I/O Statistics }
  97.     if getServerStats(getPrimaryServerID, serverStats) then
  98.       begin
  99.         upTime.Text  := intToStr(serverStats.serverUpTime) ;
  100.         gUtilization.progress := serverStats.utilization ;
  101.         packetsIn.text   := intToStr(serverStats.packetsIn)    ; 
  102.         packetsOut.text  := intToStr(serverStats.packetsOut)   ;
  103.         serverVer.text   := serverStats.version                ;
  104.         sftLevel.text    := intToStr(serverStats.sftlevel)     ;
  105.         ttsLevel.text    := intToStr(serverStats.ttsLevel)     ;
  106.         numVolumes.text  := intToStr(serverStats.numVolumes)   ;
  107.         maxConns.text    := intToStr(serverStats.maxConns)     ;
  108.         connsInUse.text  := intToStr(serverStats.connsInUse)   ;
  109.         peakConns.text   := intToStr(serverStats.maxConnsUsed) ;
  110.       end;
  111.  
  112.     { Retrieve Server's File System Counters }
  113.     if getCacheInfo(GetPrimaryServerID,memCacheInfo) then
  114.       begin
  115.         cacheHits.text          := intToStr(memCacheInfo.numCacheHits)     ;
  116.         writeBlockCount.text    := intToStr(memCacheInfo.writeBlockCount)      ;
  117.         diskWriteCount.text     := intToStr(memCacheInfo.diskWriteCount)    ;
  118.         numDirtyCacheHits.text  := intToStr(memCacheInfo.numDirtyCacheHits) ;
  119.         cacheDirtyWaitTime.text := intToStr(memCacheInfo.cacheDirtyWaitTime);
  120.         cacheMaxConcurrent.text := intToStr(memCacheInfo.cacheMaxConcurrentWrites)    ;
  121.         maxByteCount.text       := intToStr(memCacheInfo.maxByteCount)     ;
  122.         minCacheBuffers.text    := intToStr(memCacheInfo.minCacheBuffers)        ;
  123.       end;
  124.   end;
  125.  
  126.  
  127. procedure TwinStats.Timer1Timer(Sender: TObject);
  128.   begin
  129.     updateStats ;
  130.   end;
  131.  
  132. end.
  133.